home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 21 / AMIGAplus Sonderheft 21 (1999)(ICP)(DE)[!].iso / PublicDomain / Anwendungen / RecentScript / Plugins / RecentScript.thor < prev    next >
Text File  |  1999-08-23  |  1KB  |  54 lines
  1. /*****
  2.   $VER: RecentScript THOR PlugIn 1.1 (18.4.98) ©Arndt van der Molen
  3.  
  4.         RecentScript PlugIn for news/email reader THOR.
  5.  
  6.   Starts the MUIRexx application 'RecentScript' with the
  7.   currently selected article in the message list window
  8.   as argument.
  9.  
  10.   Installation:
  11.  
  12.   Select menu 'ARexx Scripts/Add Script' and choose a (free)
  13.   function key number. In the following filerequester select
  14.   this script.
  15.  
  16.   Known 'Bugs':
  17.    - THOR V2.4 seems to have problems with long pathnames for
  18.      ARexx scripts. If you get an information requester telling
  19.      "The ARexx program failed with these return codes: ..." at
  20.      execution of the script, edit the file THOR:THOR.macros and
  21.      replace the full path with the MUIRexx: assign or copy this
  22.      script to the 'THOR:rexx/' directory and reassign the
  23.      function key to it.
  24.    - Multiselection not supported
  25.    - Supports only one running THOR instance with portname 'THOR.01'
  26.    - Temporary file will not be deleted
  27. *****/
  28.  
  29. OPTIONS RESULTS
  30.  
  31. OPTIONS FAILAT 31
  32. currentmsg stem msg
  33. OPTIONS FAILAT 10
  34.  
  35. IF RC ~= 0 THEN DO
  36.   SAY THOR.LASTERROR
  37.   EXIT
  38. END
  39.  
  40. OPTIONS FAILAT 31
  41. savemessage CURRENT OVERWRITE FILE "T:RS.temp"
  42. OPTIONS FAILAT 10
  43.  
  44. IF RC ~= 0 THEN DO
  45.   SAY THOR.LASTERROR
  46.   EXIT
  47. END
  48.  
  49. PRAGMA("STACK", 15000)
  50.  
  51. ADDRESS COMMAND 'run <>NIL: MUIRexx:MUIRexx "MUIRexx:RecentScript/RecentScript.rexx T:RS.temp" PORT RECENTSCRIPT'
  52.  
  53. EXIT
  54.